<%Response.expires=0 %> Ruppersthal <% 'Felddefinition Z_HAUPT_ID = 0 Z_SUB_ID = 0 Z_KZ_LINK = "" Z_LINK_TEXT = "" Z_LFDNR = 0 Z_BILD_URL = "" Z_TEXT = "" Z_TEXTINHALT = "" Z_Such_Anzahl = 0 Z_WINZER_ID = 0 Z_WINZER = "" Z_LFD_NR = 0 Z_PRODUKT_URL = "" Z_PRODUKT_ID = 0 Z_HAUPT_ID = Request.QueryString("id") Z_SUB_ID = Request.QueryString("subid") Z_KZ_LINK = Request.QueryString("kzlink") Z_WEIN_KZ = Request.QueryString("weinkz") Z_WINZER_ID = Request.QueryString("winzerid") 'Deutsches Datumsformat festlegen Session.LCID=1031 akt_Datum = left(CDate(now()), 10) akt_Jahr = right(akt_Datum, 4) akt_Monat = Mid(akt_Datum, 4, 2) akt_Tag = left(akt_Datum, 2) akt_vgl_Dat = akt_Jahr & "-" & akt_Monat & "-" & akt_Tag 'Formulardaten aus dem Suchformular zwischenspeichern --> Suchbegriff=Request.Form("suchbegriff") 'Connect zur Datenbank herstellen set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("mdb/ruppersthal.mdb") db.Open connect %>

Aktuelle Infos

<% 'Auslesen aller Schlagzeilen der letzten 2 Monate db_Jahr = akt_Jahr db_Tag = akt_Tag db_Monat = akt_Monat - 2 if db_Monat = 0 then db_Monat = 12 db_Jahr = db_Jahr - 2 end if 'abgeschnittene führende Nullen wird hinzufügen, die beim rechnen weg sind (Bsp: 5 wird zu 05) if db_Monat < 10 then db_Monat = "0" & db_Monat end if Z_db_Datum = db_Jahr & "-" & db_Monat & "-" & db_Tag sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, NEWS_DETAIL B WHERE A.KZ_LINK = 'N' AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK AND B.DATUM > '" & Z_db_Datum & "' AND B.LFD_NR = 0 ORDER BY B.DATUM DESC, A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) do until rs.eof %>

<%=rs("TITEL")%> &subid=<%=rs("SUB_ID")%>&kzlink=<%=rs("KZ_LINK")%>">
--> mehr dazu...

<% rs.MoveNext loop %>
<% SELECT CASE Z_WEIN_KZ CASE "such" %>

Auslistung der gesuchten Winzer

<% Z_Such_Anzahl = 0 'Auslesen des gesuchten Winzers Suchen CASE "detail" %>

Winzerverzeichnis Ruppersthal

<% 'Auslesen der Winzer mit Detailinformationen Detail CASE "alle" %>

Winzerverzeichnis Ruppersthal

<% 'Auslesen aller Ruppersthaler Winzer Alle CASE "einzel" 'Auslesen der Detailinformationen des ausgewälhten Winzers Winzerdetail END SELECT %>
© sh.webdesign, 2008, Alle Rechte vorbehalten.
<% 'Datenbank - Connect wieder schließen db.Close set db=Nothing set rs=Nothing 'Funktion zum Auslesen der Winzer lt Suchbegriff sub Suchen sql = "SELECT HAUPT_ID, SUB_ID, KZ_LINK, WINZER_ID, WINZER, PRODUKT_ID, LFD_NR, TEXTINHALT, PRODUKT_URL FROM WEINBAU WHERE WINZER LIKE '%" & Suchbegriff & "%' AND PRODUKT_ID = 0 ORDER BY WINZER;" 'Connect zur Datenbank herstellen set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT veränderte Exoten-Sonderzeichen wieder zurückändern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") Z_HAUPT_ID = rs("HAUPT_ID") Z_SUB_ID = rs("SUB_ID") Z_KZ_LINK = rs("KZ_LINK") Z_WINZER_ID = rs("WINZER_ID") Z_WINZER = rs("WINZER") Z_LFD_NR = rs("LFD_NR") Z_PRODUKT_ID = rs("PRODUKT_ID") Z_PRODUKT_URL = rs("PRODUKT_URL") 'Rubrik News wurde ausgewählt oder HOME wurde gedrückt Z_Such_Anzahl = Z_Such_Anzahl + 1 %>

Suchtreffer - <%=Z_Such_Anzahl%>

<%=Z_WINZER%>
<%=Z_TEXTINHALT%>   <% 'Schaltfläche "Detailinfo" --> If Z_PRODUKT_URL = "WINZER_DETAIL" then %> <% end if %>
<% rs.MoveNext loop end sub 'Funktion zum Auslesen der Winzer mit Detailinformationen sub Detail sql = "SELECT HAUPT_ID, SUB_ID, KZ_LINK, WINZER_ID, WINZER, PRODUKT_ID, LFD_NR, TEXTINHALT, PRODUKT_URL FROM WEINBAU WHERE PRODUKT_URL = 'WINZER_DETAIL' AND PRODUKT_ID = 0 ORDER BY WINZER;" 'Connect zur Datenbank herstellen set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT veränderte Exoten-Sonderzeichen wieder zurückändern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") Z_HAUPT_ID = rs("HAUPT_ID") Z_SUB_ID = rs("SUB_ID") Z_KZ_LINK = rs("KZ_LINK") Z_WINZER_ID = rs("WINZER_ID") Z_WINZER = rs("WINZER") Z_LFD_NR = rs("LFD_NR") Z_PRODUKT_ID = rs("PRODUKT_ID") Z_PRODUKT_URL = rs("PRODUKT_URL") %>
<%=Z_WINZER%>
<%=Z_TEXTINHALT%>  
<% rs.MoveNext loop end sub 'Funktion zum Auslesen aller Winzer sub Alle sql = "SELECT HAUPT_ID, SUB_ID, KZ_LINK, WINZER_ID, WINZER, PRODUKT_ID, LFD_NR, TEXTINHALT, PRODUKT_URL FROM WEINBAU WHERE PRODUKT_ID = 0 ORDER BY WINZER;" 'Connect zur Datenbank herstellen set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT veränderte Exoten-Sonderzeichen wieder zurückändern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") Z_HAUPT_ID = rs("HAUPT_ID") Z_SUB_ID = rs("SUB_ID") Z_KZ_LINK = rs("KZ_LINK") Z_WINZER_ID = rs("WINZER_ID") Z_WINZER = rs("WINZER") Z_LFD_NR = rs("LFD_NR") Z_PRODUKT_ID = rs("PRODUKT_ID") Z_PRODUKT_URL = rs("PRODUKT_URL") %>
<%=Z_WINZER%>
<%=Z_TEXTINHALT%>   <% 'Schaltfläche "Detailinfo" --> If Z_PRODUKT_URL = "WINZER_DETAIL" then %> <% end if %>
<% rs.MoveNext loop end sub 'Funktion zum Auslesen der detaillierten Winzerinformationen für den ausgewählten Winzer sub Winzerdetail sql = "SELECT HAUPT_ID, SUB_ID, KZ_LINK, WINZER_ID, WINZER, PRODUKT_ID, LFD_NR, BILD_URL, TEXTINHALT, PRODUKT_URL FROM WEINBAU WHERE KZ_LINK = 'P' AND HAUPT_ID = " & Z_HAUPT_ID & " AND SUB_ID = " & Z_SUB_ID & " AND WINZER_ID = " & Z_WINZER_ID & " ORDER BY PRODUKT_ID, LFD_NR;" 'Connect zur Datenbank herstellen set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT veränderte Exoten-Sonderzeichen wieder zurückändern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") Z_HAUPT_ID = rs("HAUPT_ID") Z_SUB_ID = rs("SUB_ID") Z_KZ_LINK = rs("KZ_LINK") Z_WINZER_ID = rs("WINZER_ID") Z_WINZER = rs("WINZER") Z_LFD_NR = rs("LFD_NR") Z_PRODUKT_ID = rs("PRODUKT_ID") Z_PRODUKT_URL = rs("PRODUKT_URL") Z_BILD_URL = rs("BILD_URL") SELECT CASE Z_PRODUKT_ID CASE 0 'Kontaktinfo + Logo %> <% CASE 1 'Allgemeine Winzerbeschreibung %> <% CASE 2 'Aufzählung der Weissweine If Z_LFD_NR = 0 then 'Auslesen wie viele Weissweinsorten eingetragen sind sql2="SELECT MAX(LFD_NR) As Nummer FROM WEINBAU WHERE KZ_LINK = 'P' AND HAUPT_ID = " & Z_HAUPT_ID & " AND SUB_ID = " & Z_SUB_ID & " AND WINZER_ID = " & Z_WINZER_ID & " AND PRODUKT_ID = " & Z_PRODUKT_ID & ";" set rs2 = db.Execute(sql2) Z_Hilf_LFDNR = rs2("Nummer") + 1 %> <% Else %> <% end if CASE 3 'Aufzählung der Süssweine If Z_LFD_NR = 0 then 'Auslesen wie viele Weissweinsorten eingetragen sind sql2="SELECT MAX(LFD_NR) As Nummer FROM WEINBAU WHERE KZ_LINK = 'P' AND HAUPT_ID = " & Z_HAUPT_ID & " AND SUB_ID = " & Z_SUB_ID & " AND WINZER_ID = " & Z_WINZER_ID & " AND PRODUKT_ID = " & Z_PRODUKT_ID & ";" set rs2 = db.Execute(sql2) Z_Hilf_LFDNR = rs2("Nummer") + 1 %> <% Else %> <% end if CASE 4 'Aufzählung der Rotweine If Z_LFD_NR = 0 then 'Auslesen wie viele Weissweinsorten eingetragen sind sql2="SELECT MAX(LFD_NR) As Nummer FROM WEINBAU WHERE KZ_LINK = 'P' AND HAUPT_ID = " & Z_HAUPT_ID & " AND SUB_ID = " & Z_SUB_ID & " AND WINZER_ID = " & Z_WINZER_ID & " AND PRODUKT_ID = " & Z_PRODUKT_ID & ";" set rs2 = db.Execute(sql2) Z_Hilf_LFDNR = rs2("Nummer") + 1 %> <% Else %> <% end if CASE 5 'Aufzählung der Rotweine If Z_LFD_NR = 0 then 'Auslesen wie viele Weissweinsorten eingetragen sind sql2="SELECT MAX(LFD_NR) As Nummer FROM WEINBAU WHERE KZ_LINK = 'P' AND HAUPT_ID = " & Z_HAUPT_ID & " AND SUB_ID = " & Z_SUB_ID & " AND WINZER_ID = " & Z_WINZER_ID & " AND PRODUKT_ID = " & Z_PRODUKT_ID & ";" set rs2 = db.Execute(sql2) Z_Hilf_LFDNR = rs2("Nummer") + 1 %> <% Else %> <% end if End Select rs.MoveNext loop %>

<%=Z_WINZER%>
Kontaktdaten
 <%=Z_TEXTINHALT%> 		  " width="180" align="right" border=0>
<%=Z_TEXTINHALT%>


Weissweine
<%=Z_TEXTINHALT%>

 
<%=Z_TEXTINHALT%>



Süßweine
<%=Z_TEXTINHALT%>

 
<%=Z_TEXTINHALT%>



Rotweine
<%=Z_TEXTINHALT%>

 
<%=Z_TEXTINHALT%>



Schnäpse und Liköre
<%=Z_TEXTINHALT%>

 
<%=Z_TEXTINHALT%>

<% end sub %>